home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #1 / Amiga Plus Extra 1997 #1.iso / programme / daten / adm / arexx / adm-arexxmakros.lha / Sonstiges / Finde_MaxID.adm < prev    next >
Text File  |  1996-02-19  |  641b  |  36 lines
  1. /* $VER: Finde_MaxID.adm 1.1 (19.2.96)
  2.  
  3.    Copyright 1994  Daniel Wicke, wicke@wpts0.physik.uni-wuppertal.de
  4.  
  5.    Bestimmt die größte vorhandene ID in der Adreßdatei.
  6.    Für ADM.
  7.  
  8.       1.1 [jan] (19.2.96)  - Fehlermeldungen konkretisiert
  9.  
  10. */
  11.  
  12. OPTIONS RESULTS
  13.  
  14. say "Durchsuche die Liste..."
  15.  
  16. MaxID=0
  17. ACTIVATEFIRST
  18.  
  19. DO FOREVER
  20.    GETADDRESS Adresse
  21.    if RESULT < 0 then do
  22.       say "GETADDRESS fehlgeschlagen: Fehler" RESULT
  23.       leave
  24.    end
  25.    /*say Adresse.lastname Adresse.id Adresse.flags*/
  26.    IF Adresse.id>MaxID THEN
  27.       MaxID=Adresse.id
  28.  
  29.    ACTIVATENEXT
  30.    if RESULT=-1 then
  31.       leave
  32. END
  33.  
  34. SAY "Größte Mitgliedsnummer: " MaxID
  35.  
  36.